home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ 3⁄9⁄90 / 0822-Re Make TTEView text-Mar90 < prev    next >
Encoding:
Text File  |  1990-03-09  |  1.1 KB  |  51 lines  |  [TEXT/GEOL]
  1. Item    1536601                         6-March-90        11:27PST
  2.  
  3. From:   SOFTARCH                        SW Architects, Carl Nelson,PRT
  4.  
  5. To:     MACAPP.TECH$                    MacApp Technical
  6.         DAWSON.M                        Dawson, Mark
  7.  
  8. Sub:    RE-Make TTEView text visi
  9.  
  10. Attn: MACAPP TECH
  11. Attn: Dawson, Mark
  12. SentBy: Ron Aldrich
  13. Date   3/6/90
  14. Subject    RE-Make TTEView text visibl
  15. From   Ron Aldrich
  16. To MACAPP TECH
  17.    Dawson, Mark
  18.  
  19.         Reply to:    RE:Make TTEView text visible
  20. TLogView    = OBJECT(TTEView)
  21.  
  22. Mark,
  23.     Here's the code that I used for the Log view in our Formatter program.
  24.  
  25. Ron Aldrich
  26. Software Architects, Inc.
  27.  
  28. --------------------------------------------------
  29.  
  30. TLogView = OBJECT(TTEView)
  31.  
  32. PROCEDURE TLogView.WriteToLog(aString: Str255);
  33.  
  34. VAR
  35.     aScroller: TScroller;
  36.  
  37. BEGIN
  38.     IF SELF.Focus THEN;
  39.  
  40.     TESetSelect(32767, 32767, fHTE);
  41.     TEInsert(@aString[1], LENGTH(aString), fHTE);
  42.  
  43.     SELF.SynchView(kRedraw);
  44.     aScroller := SELF.GetScroller(TRUE);
  45.     IF aScroller <> NIL THEN
  46.         aScroller.ScrollTo(0, fSize.v, kRedraw);
  47.     SELF.DrawContents;
  48. END;
  49.  
  50.  
  51.